home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / ModToPas / txt / TPStrings.mod < prev    next >
Text File  |  1993-12-13  |  833b  |  41 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TPStrings.mod
  4.     :Contents.   Turbo Pascal Stringprozeduren
  5.     :Author.     Markus Uhlendahl
  6.     :Address.    Vorm Burgtor 16, D-4408 Dülmen
  7.     :Phone.      02594/81540
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga AMSoft V3.3d
  11.  
  12. **********************************************************************)
  13. IMPLEMENTATION MODULE TPStrings;
  14.  
  15.  
  16. IMPORT Strings;
  17.  
  18.  
  19. PROCEDURE Delete (VAR s : ARRAY OF CHAR;i1,i2 : INTEGER);
  20.  
  21.   BEGIN
  22.     Strings.Delete (s,i1,i2);
  23.   END Delete;
  24.  
  25.  
  26. PROCEDURE Insert (VAR s1,s2 : ARRAY OF CHAR;i : INTEGER);
  27.  
  28.   BEGIN
  29.     Strings.Insert (s1,i,s2);
  30.   END Insert;
  31.  
  32.  
  33. PROCEDURE Length (VAR s : ARRAY OF CHAR) : INTEGER;
  34.  
  35.   BEGIN
  36.     RETURN(Strings.Length (s));
  37.   END Length;
  38.  
  39.  
  40. END TPStrings.
  41.